home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh5x
/
sh55a.d64
/
h_m wandler bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
518b
|
22 lines
100 REM
110 REM PROGRAMM ZUR UMWANDLUNG VON
120 REM HIRES BILDERN (STARTADR.$2000)
130 REM IN KOALA-PAINTER BILDER.
140 REM
150 IF Q=0 THEN Q=1:LOAD "H/M WANDLER C000",8,1
160 IF A=0 THEN INPUT "NAME DES HIRES BILDES ";HN$
170 IF A=0 THEN A=1:LOAD HN$,8,1
180 :
190 SYS 49152
200 INPUT "VORDERGRUNDFARBCODE ";F1
210 INPUT "HINTERGRUNDFARBCODE ";F2
220 :
230 FOR T=8192+9000 TO 8192+9999:POKET,F2:NEXT
240 POKE 8192+10000,F1
250 :
260 POKE 46,71:POKE 45,239:CLR
270 INPUT "NAME DES KOALA-BILDES ";KN$
280 KN$="[129]PIC "+LEFT$(KN$+" ",10)
290 POKE 44,32:POKE 43,0
300 SAVE KN$,8,1:SYS 64738